Assume that we have downloaded all the files from g-drive, let’s check the H. neanderthalensis data

# get list of the local data files that we prepared earlier
nested_df_of_pp_data <-  
  read_rds(here("analysis", "data", "derived-data", "nested_df_of_pp_data.rds"))

# read these into R, and assign names to each data frame
nested_df_of_pp_data_H_neanderthalensis <- 
  nested_df_of_pp_data %>% 
  filter(str_detect(specimen, "neanderthalensis"))

Let’s try to look at all of them

list_of_plots_H_neanderthalensis  <- 
nested_df_of_pp_data_H_neanderthalensis %>% 
  mutate(plotly = map2(data, specimen, ~plot_ly(.x,
         x = .x$x, 
         y = .x$y, 
         z = .x$z, 
         color = .x$landmark) %>%
  add_markers() %>%
  layout(scene = list(xaxis=list(title = .y)))))

htmltools::tagList(list_of_plots_H_neanderthalensis$plotly)